home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M25.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  768 b   |  43 lines
  1. 0  CLS:PRINT
  2. 10   CLS:PRINT "MATRIX MULTPLICATION"
  3. 20   PRINT 
  4. 30   DIM A(10,10),B(10,10)
  5. 40   PRINT "DIMENSION OF MATRIX 1 (R,C)";
  6. 50   INPUT R1,C1
  7. 60   PRINT "DIMENSION OF MATRIX 2 (R,C)";
  8. 70   INPUT R2,C2
  9. 80   IF C1 = R2 THEN 110
  10. 90   PRINT "CANNOT BE MULTIPLIED;  OTHER DIMENSION NECESSARY"
  11. 100   GOTO 40
  12. 110   PRINT "MATRIX 1:"
  13. 120   FOR J = 1 TO R1
  14. 130   PRINT "ROW ";J
  15. 140   FOR I = 1 TO C1
  16. 150   PRINT "VALUE COLUMN";I;
  17. 160   INPUT A(J,I)
  18. 170   NEXT I
  19. 180   NEXT J
  20. 190   PRINT 
  21. 200   PRINT "MATRIX 2:"
  22. 210   FOR J = 1 TO R2
  23. 220   PRINT "ROW ";J
  24. 230   FOR I = 1 TO C2
  25. 240   PRINT "VALUE COLUMN ";I;
  26. 250   INPUT B(J,I)
  27. 260   NEXT I
  28. 270   NEXT J
  29. 280   PRINT 
  30. 290   FOR I = 1 TO R1
  31. 300   FOR J = 1 TO C2
  32. 310  S = 0
  33. 320   FOR K = 1 TO C1
  34. 330  S = S + A(I,K) * B(K,J)
  35. 340   NEXT K
  36. 350   PRINT S;"  ";
  37. 360   NEXT J
  38. 370   PRINT 
  39. 380   NEXT I
  40. 385  INPUT "Run Again (Y/N) ;A$
  41. 387  IF A$="Y" OR A$="y" THEN 10
  42. 390   RUN "MATH"
  43.